<!--#include file="../Conn.asp"-->
<!--#include file="../inc/Main.asp"-->
<% 	
	Dim ACTCMS,ACTERR
	Set ACTCMS = New ACT_Main
	Public Function UserLoginChecked()
	on error resume next
	Dim AdminName,PassWord
		UserLoginChecked = false 
		AdminName = ACTCMS.RSQL(Trim(Request.Cookies(AcTCMSN)("AdminName")))
		PassWord= ACTCMS.RSQL(Trim(Request.Cookies(AcTCMSN)("AdminPassword")))
		IF AdminName="" Or PassWord = "" Then
		   UserLoginChecked=false
		   Exit Function
		Else
			Dim UserRs
			Set Userrs=Actcms.Actexe("Select Admin_Name,PassWord From Admin_ACT Where Admin_Name='" & AdminName & "' And PassWord='" & PassWord & "'")
			IF UserRS.Eof And UserRS.Bof Then
				UserLoginChecked=false
			Else
				UserLoginChecked = true
			End if
			UserRS.Close:Set UserRS=Nothing
	   End IF
	End Function 

		  %>
